object frmPresupuesto: TfrmPresupuesto
  Left = -26
  Top = 41
  Width = 997
  Height = 723
  Caption = 'Presupuesto'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCanResize = FormCanResize
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel14: TPanel
    Left = 0
    Top = 0
    Width = 989
    Height = 693
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = 13555670
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object pnlRenglones: TPanel
      Left = 2
      Top = 119
      Width = 985
      Height = 536
      Align = alClient
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Color = 10791869
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -9
      Font.Name = 'Small Fonts'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      DesignSize = (
        985
        536)
      object lblAprobado: TLabel
        Left = 8
        Top = 16
        Width = 115
        Height = 29
        Caption = 'Aprobado'
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -24
        Font.Name = 'Tahoma'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
        Visible = False
      end
      object lblBloqueado: TLabel
        Left = 7
        Top = 20
        Width = 122
        Height = 28
        Caption = 'Bloqueado'
        Font.Charset = ANSI_CHARSET
        Font.Color = 1870506
        Font.Height = -23
        Font.Name = 'Tahoma'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
        Visible = False
      end
      object Panel19: TPanel
        Left = 132
        Top = 2
        Width = 851
        Height = 497
        Align = alRight
        Anchors = [akLeft, akTop, akRight, akBottom]
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Color = 15658734
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -9
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        DesignSize = (
          851
          497)
        object Shape10: TShape
          Left = 655
          Top = 444
          Width = 191
          Height = 46
          Anchors = [akRight, akBottom]
          Brush.Color = cl3DLight
          Pen.Style = psClear
        end
        object Label1: TLabel
          Left = 719
          Top = 393
          Width = 44
          Height = 13
          Anchors = [akRight, akBottom]
          Caption = 'Subtotal:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 705
          Top = 476
          Width = 28
          Height = 13
          Anchors = [akRight, akBottom]
          Caption = 'Total:'
          Color = cl3DLight
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object lblSubTotalMo: TDBText
          Left = 766
          Top = 393
          Width = 78
          Height = 14
          Alignment = taRightJustify
          Anchors = [akRight, akBottom]
          DataField = 'TOTAL'
          DataSource = sPresup
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = DBText6Click
        end
        object lblTotal_Ganancia: TDBText
          Left = 766
          Top = 409
          Width = 78
          Height = 17
          Alignment = taRightJustify
          Anchors = [akRight, akBottom]
          DataField = 'total_ganancia'
          DataSource = sPresup
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = DBText6Click
        end
        object lblTotal_General: TDBText
          Left = 741
          Top = 476
          Width = 79
          Height = 13
          Alignment = taRightJustify
          Anchors = [akRight, akBottom]
          Color = cl3DLight
          DataField = 'total_general'
          DataSource = sPresup
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentColor = False
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = DBText6Click
        end
        object Label15: TLabel
          Left = 9
          Top = 4
          Width = 91
          Height = 13
          Caption = 'Costos Directos:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label16: TLabel
          Left = 9
          Top = 361
          Width = 102
          Height = 13
          Anchors = [akLeft, akBottom]
          Caption = 'Costos Indirectos:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label21: TLabel
          Left = 473
          Top = 361
          Width = 146
          Height = 13
          Anchors = [akRight, akBottom]
          Caption = 'Materiales menos descontado:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label22: TLabel
          Left = 706
          Top = 361
          Width = 57
          Height = 13
          Anchors = [akRight, akBottom]
          Caption = 'Mano Obra:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label23: TLabel
          Left = 708
          Top = 377
          Width = 55
          Height = 13
          Anchors = [akRight, akBottom]
          Caption = 'Costo Ind.:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object lblIndi: TLabel
          Left = 766
          Top = 377
          Width = 78
          Height = 13
          Alignment = taRightJustify
          Anchors = [akRight, akBottom]
          AutoSize = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = lblIndiClick
        end
        object Label24: TLabel
          Left = 673
          Top = 460
          Width = 21
          Height = 13
          Anchors = [akRight, akBottom]
          Caption = 'IVA:'
          Color = cl3DLight
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object totalIva: TDBText
          Left = 741
          Top = 460
          Width = 79
          Height = 13
          Alignment = taRightJustify
          Anchors = [akRight, akBottom]
          Color = cl3DLight
          DataField = 'totalIva'
          DataSource = sPresup
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = DBText6Click
        end
        object masGanancia: TDBText
          Left = 766
          Top = 425
          Width = 78
          Height = 13
          Alignment = taRightJustify
          Anchors = [akRight, akBottom]
          DataField = 'masGanancia'
          DataSource = sPresup
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = DBText6Click
        end
        object Label25: TLabel
          Left = 719
          Top = 425
          Width = 44
          Height = 13
          Anchors = [akRight, akBottom]
          Caption = 'Subtotal:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label30: TLabel
          Left = 511
          Top = 377
          Width = 49
          Height = 13
          Anchors = [akRight, akBottom]
          Caption = 'Alic. Mat.:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label31: TLabel
          Left = 566
          Top = 393
          Width = 53
          Height = 13
          Anchors = [akRight, akBottom]
          Caption = 'Total Mat.:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Shape8: TShape
          Left = 536
          Top = 440
          Width = 309
          Height = 3
          Anchors = [akRight, akBottom]
          Brush.Color = 9803157
          Pen.Style = psClear
        end
        object Label34: TLabel
          Left = 689
          Top = 444
          Width = 44
          Height = 13
          Anchors = [akRight, akBottom]
          Caption = 'Subtotal:'
          Color = cl3DLight
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object lblSubtotal: TDBText
          Left = 741
          Top = 444
          Width = 79
          Height = 13
          Alignment = taRightJustify
          Anchors = [akRight, akBottom]
          Color = cl3DLight
          DataField = 'subtotal'
          DataSource = sPresup
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentColor = False
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = DBText6Click
        end
        object DBText5: TDBText
          Left = 620
          Top = 377
          Width = 78
          Height = 13
          Alignment = taRightJustify
          Anchors = [akRight, akBottom]
          DataField = 'porAlicuotaMat'
          DataSource = sPresup
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = DBText6Click
        end
        object DBText6: TDBText
          Left = 624
          Top = 361
          Width = 74
          Height = 13
          Alignment = taRightJustify
          Anchors = [akRight, akBottom]
          DataField = 'matMenosDescontado'
          DataSource = sPresup
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = DBText6Click
        end
        object DBText7: TDBText
          Left = 766
          Top = 361
          Width = 78
          Height = 13
          Alignment = taRightJustify
          Anchors = [akRight, akBottom]
          DataField = 'SUBT_MO'
          DataSource = sPresup
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = DBText6Click
        end
        object Shape9: TShape
          Left = 700
          Top = 362
          Width = 3
          Height = 77
          Anchors = [akRight, akBottom]
          Brush.Color = 9803157
          Pen.Style = psClear
        end
        object Label2: TLabel
          Left = 679
          Top = 409
          Width = 47
          Height = 13
          Anchors = [akRight, akBottom]
          Caption = 'Beneficio:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label33: TLabel
          Left = 538
          Top = 444
          Width = 37
          Height = 13
          Anchors = [akRight, akBottom]
          Caption = 'IVA Ley'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label35: TLabel
          Left = 539
          Top = 460
          Width = 63
          Height = 13
          Anchors = [akRight, akBottom]
          Caption = '% Facturado'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object DBText9: TDBText
          Left = 625
          Top = 280
          Width = 73
          Height = 17
          Alignment = taRightJustify
          Anchors = [akTop, akRight]
          DataField = 'matMasAlicuota'
          DataSource = sPresup
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = DBText6Click
        end
        object grdItemPre: TDBGrid
          Left = 14
          Top = 18
          Width = 830
          Height = 341
          Hint = 'Bot'#243'n derecho, muestra detalle de items'
          Anchors = [akLeft, akTop, akRight, akBottom]
          Color = clWhite
          DataSource = sItemPre
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          PopupMenu = PopupMenu1
          ShowHint = True
          TabOrder = 0
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clNavy
          TitleFont.Height = -9
          TitleFont.Name = 'Small Fonts'
          TitleFont.Style = []
          OnCellClick = grdItemPreCellClick
          OnDrawColumnCell = grdItemPreDrawColumnCell
          OnEditButtonClick = grdItemPreEditButtonClick
          OnEnter = grdItemPreEnter
          OnExit = grdGastoPreExit
          Columns = <
            item
              ButtonStyle = cbsEllipsis
              Expanded = False
              FieldName = 'item'
              Font.Charset = ANSI_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ReadOnly = True
              Title.Alignment = taCenter
              Title.Caption = 'Item'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -11
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 342
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'sigla'
              Font.Charset = ANSI_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ReadOnly = True
              Title.Alignment = taCenter
              Title.Caption = 'Unidad'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -11
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 49
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CANTIDAD'
              Font.Charset = ANSI_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              Title.Alignment = taCenter
              Title.Caption = 'Cantidad'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -11
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 73
              Visible = True
            end
            item
              ButtonStyle = cbsEllipsis
              Expanded = False
              FieldName = 'MO'
              Font.Charset = ANSI_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ReadOnly = True
              Title.Alignment = taCenter
              Title.Caption = 'P.M.Obra'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -11
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 83
              Visible = True
            end
            item
              ButtonStyle = cbsEllipsis
              Expanded = False
              FieldName = 'MATERIAL'
              Font.Charset = ANSI_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ReadOnly = True
              Title.Alignment = taCenter
              Title.Caption = 'P.Material'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -11
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 78
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'unitario'
              Font.Charset = ANSI_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ReadOnly = True
              Title.Alignment = taCenter
              Title.Caption = 'P.Item'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -11
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 70
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'subtotal'
              Font.Charset = ANSI_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ReadOnly = True
              Title.Alignment = taCenter
              Title.Caption = 'Subtotal'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -11
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 75
              Visible = True
            end>
        end
        object grdGastoPre: TDBGrid
          Left = 14
          Top = 376
          Width = 323
          Height = 108
          Anchors = [akLeft, akBottom]
          DataSource = sGastoPre
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clNavy
          TitleFont.Height = -9
          TitleFont.Name = 'Small Fonts'
          TitleFont.Style = []
          OnEditButtonClick = grdGastoPreEditButtonClick
          OnEnter = grdGastoPreEnter
          OnExit = grdGastoPreExit
          Columns = <
            item
              ButtonStyle = cbsEllipsis
              Expanded = False
              FieldName = 'gasto'
              Font.Charset = ANSI_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              Title.Alignment = taCenter
              Title.Caption = 'Detalle'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -11
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 225
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'IMPORTE'
              Font.Charset = ANSI_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              Title.Alignment = taCenter
              Title.Caption = '%'
              Title.Font.Charset = ANSI_CHARSET
              Title.Font.Color = clNavy
              Title.Font.Height = -11
              Title.Font.Name = 'Tahoma'
              Title.Font.Style = [fsBold]
              Width = 56
              Visible = True
            end>
        end
        object DBEdit14: TDBEdit
          Left = 728
          Top = 407
          Width = 35
          Height = 18
          Anchors = [akRight, akBottom]
          AutoSize = False
          BevelOuter = bvRaised
          BevelKind = bkFlat
          BorderStyle = bsNone
          DataField = 'GANANCIA'
          DataSource = sPresup
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnEnter = edtFechaEnter
          OnExit = grdGastoPreExit
        end
        object DBEdit1: TDBEdit
          Left = 698
          Top = 458
          Width = 31
          Height = 18
          Anchors = [akRight, akBottom]
          AutoSize = False
          BevelOuter = bvRaised
          BevelKind = bkFlat
          BorderStyle = bsNone
          Color = clInactiveBorder
          DataField = 'IVA'
          DataSource = sPresup
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          OnEnter = edtFechaEnter
          OnExit = grdGastoPreExit
        end
        object DBEdit2: TDBEdit
          Left = 565
          Top = 375
          Width = 54
          Height = 18
          Anchors = [akRight, akBottom]
          AutoSize = False
          BevelOuter = bvRaised
          BevelKind = bkFlat
          BorderStyle = bsNone
          DataField = 'ALICUOTA_MAT'
          DataSource = sPresup
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
          OnEnter = edtFechaEnter
          OnExit = grdGastoPreExit
        end
        object DBEdit18: TDBEdit
          Left = 607
          Top = 441
          Width = 46
          Height = 16
          Anchors = [akRight, akBottom]
          AutoSize = False
          BevelOuter = bvRaised
          BevelKind = bkFlat
          BorderStyle = bsNone
          DataField = 'IVA_LEY'
          DataSource = sPresup
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 5
          OnEnter = edtFechaEnter
          OnExit = grdGastoPreExit
        end
        object DBEdit19: TDBEdit
          Left = 607
          Top = 456
          Width = 46
          Height = 16
          Anchors = [akRight, akBottom]
          AutoSize = False
          BevelOuter = bvRaised
          BevelKind = bkFlat
          BorderStyle = bsNone
          DataField = 'PORC_FACTURADO'
          DataSource = sPresup
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 6
          OnEnter = edtFechaEnter
          OnExit = grdGastoPreExit
        end
        object btnCargaIVA: TBitBtn
          Left = 541
          Top = 473
          Width = 111
          Height = 19
          Anchors = [akRight, akBottom]
          Caption = 'Cargar'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 7
          OnClick = btnCargaIVAClick
        end
      end
      object Panel1: TPanel
        Left = 2
        Top = 499
        Width = 981
        Height = 35
        Align = alBottom
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Caption = 'Panel1'
        Color = 11580341
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -9
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        DesignSize = (
          981
          35)
        object nvgPre: TDBNavigator
          Left = 132
          Top = 7
          Width = 594
          Height = 23
          VisibleButtons = [nbPrior, nbNext, nbInsert, nbDelete, nbPost, nbCancel]
          Anchors = [akLeft, akTop, akRight]
          Flat = True
          ConfirmDelete = False
          TabOrder = 0
          BeforeAction = nvgPreBeforeAction
          OnClick = nvgPreClick
        end
        object btnActualizar: TBitBtn
          Left = 754
          Top = 8
          Width = 69
          Height = 22
          Anchors = [akTop, akRight]
          Caption = 'Actualizar'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = btnActualizarClick
        end
        object btnInversor: TBitBtn
          Left = 831
          Top = 7
          Width = 69
          Height = 23
          Anchors = [akTop, akRight]
          Caption = 'Inversores'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = btnInversorClick
        end
        object btnGrabarPresup: TBitBtn
          Left = 906
          Top = 7
          Width = 67
          Height = 23
          Anchors = [akTop, akRight]
          Caption = 'Grabar'
          Default = True
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          OnClick = btnGrabarPresupClick
          Glyph.Data = {
            DE010000424DDE01000000000000760000002800000024000000120000000100
            0400000000006801000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333333333333333330000333333333333333333333333F33333333333
            00003333344333333333333333388F3333333333000033334224333333333333
            338338F3333333330000333422224333333333333833338F3333333300003342
            222224333333333383333338F3333333000034222A22224333333338F338F333
            8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
            33333338F83338F338F33333000033A33333A222433333338333338F338F3333
            0000333333333A222433333333333338F338F33300003333333333A222433333
            333333338F338F33000033333333333A222433333333333338F338F300003333
            33333333A222433333333333338F338F00003333333333333A22433333333333
            3338F38F000033333333333333A223333333333333338F830000333333333333
            333A333333333333333338330000333333333333333333333333333333333333
            0000}
          NumGlyphs = 2
          Spacing = 0
        end
      end
      object Panel2: TPanel
        Left = 5
        Top = 321
        Width = 125
        Height = 172
        Anchors = [akLeft, akBottom]
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        object DBText2: TDBText
          Left = 52
          Top = 57
          Width = 65
          Height = 17
          Alignment = taRightJustify
          DataField = 'total'
          DataSource = frmModificador.sModificador
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label26: TLabel
          Left = 5
          Top = 5
          Width = 111
          Height = 29
          Alignment = taCenter
          AutoSize = False
          Caption = 'Modificaciones realizadas'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          WordWrap = True
        end
        object Label27: TLabel
          Left = 5
          Top = 43
          Width = 99
          Height = 13
          Caption = 'Neto a descontar:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label28: TLabel
          Left = 5
          Top = 74
          Width = 61
          Height = 13
          Caption = 'c/Al'#237'cuota:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label29: TLabel
          Left = 5
          Top = 103
          Width = 35
          Height = 13
          Caption = 'c/IVA:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object DBText3: TDBText
          Left = 52
          Top = 88
          Width = 65
          Height = 17
          Alignment = taRightJustify
          DataField = 'totalAlicuota'
          DataSource = frmModificador.sModificador
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object DBText4: TDBText
          Left = 52
          Top = 117
          Width = 65
          Height = 17
          Alignment = taRightJustify
          DataField = 'totalConIva'
          DataSource = frmModificador.sModificador
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object btModificar: TSpeedButton
          Left = 6
          Top = 144
          Width = 110
          Height = 22
          Caption = 'Modificar'
          Flat = True
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
            000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
            00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
            F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
            0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
            FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
            FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
            0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
            00333377737FFFFF773333303300000003333337337777777333}
          NumGlyphs = 2
          ParentFont = False
          OnClick = btModificarClick
        end
      end
    end
    object pnlDatos: TPanel
      Left = 2
      Top = 53
      Width = 985
      Height = 66
      Align = alTop
      Color = 12376542
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      DesignSize = (
        985
        66)
      object Label6: TLabel
        Left = 120
        Top = 2
        Width = 22
        Height = 10
        Caption = 'CIRC.'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label44: TLabel
        Left = 412
        Top = 2
        Width = 31
        Height = 10
        Caption = 'QUINTA'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 165
        Top = 2
        Width = 24
        Height = 10
        Caption = 'SECC.'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 365
        Top = 2
        Width = 35
        Height = 10
        Caption = 'CHACRA'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label52: TLabel
        Left = 212
        Top = 2
        Width = 43
        Height = 10
        Caption = 'MANZANA'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label46: TLabel
        Left = 266
        Top = 2
        Width = 38
        Height = 10
        Caption = 'PARCELA'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label47: TLabel
        Left = 312
        Top = 2
        Width = 42
        Height = 10
        Caption = 'SUBPARC.'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label45: TLabel
        Left = 458
        Top = 2
        Width = 43
        Height = 10
        Caption = 'FRACCION'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label48: TLabel
        Left = 511
        Top = 2
        Width = 59
        Height = 10
        Caption = 'SUP. TERRENO'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label49: TLabel
        Left = 578
        Top = 2
        Width = 72
        Height = 10
        Caption = 'SUP. EDIFICACION'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label53: TLabel
        Left = 120
        Top = 31
        Width = 46
        Height = 10
        Caption = 'LOCALIDAD'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label54: TLabel
        Left = 271
        Top = 31
        Width = 45
        Height = 10
        Caption = 'PROVINCIA'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label17: TLabel
        Left = 384
        Top = 30
        Width = 42
        Height = 10
        Cursor = crHandPoint
        Caption = 'TIPOLOGIA'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
        OnClick = lblTipologiaClick
      end
      object imgObserva: TImage
        Left = 873
        Top = 5
        Width = 30
        Height = 33
        Cursor = crHandPoint
        Hint = 'Observaciones'
        Anchors = [akTop, akRight]
        ParentShowHint = False
        Picture.Data = {
          055449636F6E0000010002002020100000000000E80200002600000010101000
          00000000280100000E0300002800000020000000400000000100040000000000
          8002000000000000000000000000000000000000000000000000800000800000
          0080800080000000800080008080000080808000C0C0C0000000FF0000FF0000
          00FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000000000000000
          000000000000000000000000000000000007000000000000B333333333333333
          3330700000000000B0000000000000000030700000000000B0FF7FFFFFFFFFFF
          F030700000000000B0FF8FFFFFFFFFFFF030700000000000B088788888888888
          8030700000000000B0FF8FFFFFFFFFFFF030700000000000B0FF7FFFFFFFFFFF
          F030700000000000B0888888888888888030700000000000B0FF7FFFFFFFFFFF
          F030700000000000B0FF8FFFFFFFFFFFF030700000000000B088788888888888
          8030700000000000B0FF8FFFFFFFFFFFF030700000000000B0FF7FFFFFFFFFFF
          F030700000000000B0888888888888888030700000000000B0FF7FFFFFFFFFFF
          F030700000000000B0FF8FFFFFFFFFFFF030700000000000B088788888888888
          8030700000000000B0FF8FFFFFFFFFFFF030700000000000B0FF7FFFFFFFFFFF
          F030700000000000B0888888888888888030700000000000B0FF7FFFFFFFFFFF
          F030700000000000B0FF8FFFFFFFFFFFF030700000000000B0FF00000000000F
          F030700000000000B0FF0FF88888770FF030700000000000B000000F88870000
          0030700000000000BBBBBBB0F870BBBBBBB07000000000000000000007000000
          000700000000000000000000F880000000000000000000000000000000000000
          0000000000000000000000000000000000000000FFFFFFFFFF00000FFE000007
          FE000007FE000007FE000007FE000007FE000007FE000007FE000007FE000007
          FE000007FE000007FE000007FE000007FE000007FE000007FE000007FE000007
          FE000007FE000007FE000007FE000007FE000007FE000007FE000007FE000007
          FE000007FF00000FFFFE0FFFFFFE0FFFFFFFFFFF280000001000000020000000
          0100040000000000C00000000000000000000000000000000000000000000000
          00008000008000000080800080000000800080008080000080808000C0C0C000
          0000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000
          0000000000003333333330000000BFFFFFFFB0000000B8888888B0000000BFFF
          FFFFB0000000BFFFFFFFB0000000B8888888B0000000BFFFFFFFB0000000BFFF
          FFFFB0000000B8888888B0000000BFFFFFFFB0000000BFFFFFFFB0000000BF00
          000FB0000000BBBF8700B00000000000700007000000000000000000FFFFFFFF
          E0037FFFE003FFFFE0037000E0030000E0038888E0038888E0037000E0030000
          E0037FFFE003FFFFE0037000E0030000E0038FFFF003FFFFFE3F7000}
        Proportional = True
        ShowHint = True
        Stretch = True
        OnClick = imgObservaClick
      end
      object btnAprobado: TSpeedButton
        Left = 911
        Top = 8
        Width = 64
        Height = 26
        Hint = 'Aprobar presupuesto'
        Anchors = [akTop, akRight]
        Caption = 'Aprobar'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000003
          333333333F777773FF333333008888800333333377333F3773F3333077870787
          7033333733337F33373F3308888707888803337F33337F33337F330777880887
          7703337F33337FF3337F3308888000888803337F333777F3337F330777700077
          7703337F33377733337FB3088888888888033373FFFFFFFFFF733B3000000000
          0033333777777777773333BBBB3333080333333333F3337F7F33BBBB707BB308
          03333333373F337F7F3333BB08033308033333337F7F337F7F333B3B08033308
          033333337F73FF737F33B33B778000877333333373F777337333333B30888880
          33333333373FFFF73333333B3300000333333333337777733333}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = btnAprobadoClick
      end
      object btnExcel: TSpeedButton
        Left = 833
        Top = 8
        Width = 26
        Height = 26
        Anchors = [akTop, akRight]
        Flat = True
        Glyph.Data = {
          46060000424D4606000000000000360400002800000016000000160000000100
          0800000000001002000000000000000000000001000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
          A6000020400000206000002080000020A0000020C0000020E000004000000040
          20000040400000406000004080000040A0000040C0000040E000006000000060
          20000060400000606000006080000060A0000060C0000060E000008000000080
          20000080400000806000008080000080A0000080C0000080E00000A0000000A0
          200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
          200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
          200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
          20004000400040006000400080004000A0004000C0004000E000402000004020
          20004020400040206000402080004020A0004020C0004020E000404000004040
          20004040400040406000404080004040A0004040C0004040E000406000004060
          20004060400040606000406080004060A0004060C0004060E000408000004080
          20004080400040806000408080004080A0004080C0004080E00040A0000040A0
          200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
          200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
          200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
          20008000400080006000800080008000A0008000C0008000E000802000008020
          20008020400080206000802080008020A0008020C0008020E000804000008040
          20008040400080406000804080008040A0008040C0008040E000806000008060
          20008060400080606000806080008060A0008060C0008060E000808000008080
          20008080400080806000808080008080A0008080C0008080E00080A0000080A0
          200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
          200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
          200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
          2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
          2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
          2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
          2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
          2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
          2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
          2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00A402A402A402
          A402A402A402A402A402A402A402A402000002A402A402A402A402A402A402A4
          02A402A402A402A40000A402FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFA402
          000002A4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF02A40000A402FFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFA402000002A4FFFFFFFFFFFFFFFFFFFFFFA4
          02A402A402FF02A40000A402FF02A402A402A402A402A4FFA402A402A4FFA402
          000002A4FFA402A402A402A402A4FFA402A402A4FFFF02A40000A402FFFFA402
          A402A402A4FFA402A402A4FFFFFFA402000002A4FFFFFFA402A402A4FFA402A4
          02A402A4FFFF02A40000A402FFFFFFFFA402A4FFA402A402A402A402FFFFA402
          000002A4FFFFFFFFFFA4FFA402A402A4FFFFFFFFFFFF02A40000A402FFFFFFFF
          02FFA402A402A402A4FFFFFFFFFFA402000002A4FFFFFF02FFA402A402A402A4
          02A4FFFFFFFF02A40000A402FFFF02FFA402A402A402A402A402A4FFFFFFA402
          000002A4FFA4FFA402A402A4FFA402A402A402A4FFFF02A40000A402FF02A402
          A402A4FFFFFFA402A402A402FFFFA402000002A4FFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFF02A40000A402FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFA402
          000002A4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF02A40000A402A402A402
          A402A402A402A402A402A402A402A402000002A402A402A402A402A402A402A4
          02A402A402A402A40000}
        OnClick = btnExcelClick
      end
      object btBloquear: TSpeedButton
        Left = 688
        Top = 8
        Width = 133
        Height = 26
        Hint = 'Aprobar presupuesto'
        Anchors = [akTop, akRight]
        Caption = 'Bloquear/Desbloquear'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          5000555555555555577755555555555550B0555555555555F7F7555555555550
          00B05555555555577757555555555550B3B05555555555F7F557555555555000
          3B0555555555577755755555555500B3B0555555555577555755555555550B3B
          055555FFFF5F7F5575555700050003B05555577775777557555570BBB00B3B05
          555577555775557555550BBBBBB3B05555557F555555575555550BBBBBBB0555
          55557F55FF557F5555550BB003BB075555557F577F5575F5555577B003BBB055
          555575F7755557F5555550BB33BBB0555555575F555557F555555507BBBB0755
          55555575FFFF7755555555570000755555555557777775555555}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = btBloquearClick
      end
      object m2: TLabel
        Left = 734
        Top = 42
        Width = 4
        Height = 16
        Anchors = [akRight, akBottom]
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label36: TLabel
        Left = 690
        Top = 42
        Width = 39
        Height = 16
        Anchors = [akRight, akBottom]
        Caption = 'x M2: '
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object DBEdit4: TDBEdit
        Left = 120
        Top = 12
        Width = 40
        Height = 18
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'CIRCUNSCRIPCION'
        DataSource = sPresup
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnEnter = edtFechaEnter
        OnExit = grdGastoPreExit
      end
      object DBEdit5: TDBEdit
        Left = 166
        Top = 12
        Width = 40
        Height = 18
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'SECCION'
        DataSource = sPresup
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnEnter = edtFechaEnter
        OnExit = grdGastoPreExit
      end
      object DBEdit6: TDBEdit
        Left = 366
        Top = 12
        Width = 40
        Height = 18
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'CHACRA'
        DataSource = sPresup
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        OnEnter = edtFechaEnter
        OnExit = grdGastoPreExit
      end
      object DBEdit7: TDBEdit
        Left = 412
        Top = 12
        Width = 40
        Height = 18
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'QUINTA'
        DataSource = sPresup
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
        OnEnter = edtFechaEnter
        OnExit = grdGastoPreExit
      end
      object DBEdit15: TDBEdit
        Left = 212
        Top = 12
        Width = 48
        Height = 18
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'MANZANA'
        DataSource = sPresup
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnEnter = edtFechaEnter
        OnExit = grdGastoPreExit
      end
      object DBEdit9: TDBEdit
        Left = 266
        Top = 12
        Width = 40
        Height = 18
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'PARCELA'
        DataSource = sPresup
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnEnter = edtFechaEnter
        OnExit = grdGastoPreExit
      end
      object DBEdit10: TDBEdit
        Left = 312
        Top = 12
        Width = 48
        Height = 18
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'SUBPARCELA'
        DataSource = sPresup
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        OnEnter = edtFechaEnter
        OnExit = grdGastoPreExit
      end
      object DBEdit8: TDBEdit
        Left = 458
        Top = 12
        Width = 48
        Height = 18
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'FRACCION'
        DataSource = sPresup
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
        OnEnter = edtFechaEnter
        OnExit = grdGastoPreExit
      end
      object DBEdit11: TDBEdit
        Left = 512
        Top = 12
        Width = 61
        Height = 18
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'SUPERFICIE_TERRENO'
        DataSource = sPresup
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 8
        OnEnter = edtFechaEnter
        OnExit = grdGastoPreExit
      end
      object DBEdit12: TDBEdit
        Left = 579
        Top = 12
        Width = 74
        Height = 18
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'SUPERFICIE_EDIFICACION'
        DataSource = sPresup
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 9
        OnEnter = edtFechaEnter
        OnExit = grdGastoPreExit
      end
      object TPanel
        Left = 8
        Top = 13
        Width = 81
        Height = 45
        Color = 13225169
        TabOrder = 12
        object Label5: TLabel
          Left = 16
          Top = 3
          Width = 57
          Height = 11
          Caption = 'Identificaci'#243'n '
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Small Fonts'
          Font.Style = []
          ParentFont = False
        end
        object Label9: TLabel
          Left = 32
          Top = 16
          Width = 12
          Height = 11
          Caption = 'del'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Small Fonts'
          Font.Style = []
          ParentFont = False
        end
        object Label10: TLabel
          Left = 24
          Top = 30
          Width = 37
          Height = 11
          Caption = 'inmueble'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Small Fonts'
          Font.Style = []
          ParentFont = False
        end
      end
      object DBLookupComboBox1: TDBLookupComboBox
        Left = 120
        Top = 41
        Width = 145
        Height = 19
        BevelInner = bvLowered
        BevelOuter = bvRaised
        Ctl3D = False
        DataField = 'localidad'
        DataSource = sPresup
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 10
        OnEnter = edtFechaEnter
        OnExit = grdGastoPreExit
      end
      object DBEdit3: TDBEdit
        Left = 271
        Top = 41
        Width = 105
        Height = 20
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'provincia'
        DataSource = sPresup
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 11
        OnEnter = edtFechaEnter
        OnExit = grdGastoPreExit
      end
      object cmbTipologia: TDBLookupComboBox
        Left = 383
        Top = 41
        Width = 145
        Height = 19
        BevelInner = bvLowered
        BevelOuter = bvRaised
        Ctl3D = False
        DataField = 'tipologia'
        DataSource = sPresup
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 13
        OnClick = cmbTipologiaClick
        OnEnter = edtFechaEnter
        OnExit = grdGastoPreExit
      end
      object barAvance: TProgressBar
        Left = 877
        Top = 42
        Width = 97
        Height = 16
        Anchors = [akTop, akRight]
        Min = 0
        Max = 20
        Smooth = True
        Step = 1
        TabOrder = 14
      end
      object DBCheckBox1: TDBCheckBox
        Left = 547
        Top = 40
        Width = 103
        Height = 17
        Alignment = taLeftJustify
        Caption = 'SOLO MANO DE OBRA'
        DataField = 'SOLO_MO'
        DataSource = sPresup
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -8
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
        TabOrder = 15
        ValueChecked = '1'
        ValueUnchecked = '0'
      end
    end
    object pnlGeneral: TPanel
      Left = 2
      Top = 2
      Width = 985
      Height = 51
      Align = alTop
      TabOrder = 0
      DesignSize = (
        985
        51)
      object Label4: TLabel
        Left = 174
        Top = 9
        Width = 61
        Height = 11
        Caption = 'Denominaci'#243'n'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -9
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label39: TLabel
        Left = 696
        Top = 8
        Width = 26
        Height = 11
        Anchors = [akTop, akRight]
        Caption = 'Fecha'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -9
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label50: TLabel
        Left = 672
        Top = 32
        Width = 50
        Height = 11
        Anchors = [akTop, akRight]
        Caption = 'Plazo (d'#237'as)'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -9
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object DBText1: TDBText
        Left = 98
        Top = 17
        Width = 71
        Height = 28
        Alignment = taRightJustify
        DataField = 'ID_PRESUPUESTO'
        DataSource = sPresup
        Font.Charset = ANSI_CHARSET
        Font.Color = clGray
        Font.Height = -21
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object btnCalPresup: TSpeedButton
        Left = 672
        Top = 2
        Width = 23
        Height = 24
        Hint = 'Calendar'
        Anchors = [akTop, akRight]
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        Glyph.Data = {
          4E010000424D4E01000000000000760000002800000012000000120000000100
          040000000000D800000000000000000000001000000010000000000000000000
          BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333330000003333333333333333330000003338888888888888330000003304
          0404404040483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
          000033FF000F0007FF483300000033FFF0FF7F70FF483300000033FFF0FFFFF0
          FF483300000033FFF0FF0007FF483300000033FF00FF0FFFFF483300000033FF
          F0FF0000FF483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
          000033F7777777777F4833000000330000000000003333000000333333333333
          333333000000333333333333333333000000}
        Layout = blGlyphRight
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        OnClick = btnCalPresupClick
      end
      object Label20: TLabel
        Left = 98
        Top = 1
        Width = 54
        Height = 11
        Caption = 'Presupuesto'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -9
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label32: TLabel
        Left = 195
        Top = 32
        Width = 40
        Height = 11
        Caption = 'Direcci'#243'n'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -9
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object TPanel
        Left = 8
        Top = 2
        Width = 81
        Height = 45
        Color = 13225169
        TabOrder = 4
        object Label11: TLabel
          Left = 8
          Top = 3
          Width = 68
          Height = 11
          Caption = 'Datos generales'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Small Fonts'
          Font.Style = []
          ParentFont = False
        end
        object Label12: TLabel
          Left = 32
          Top = 16
          Width = 12
          Height = 11
          Caption = 'del'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Small Fonts'
          Font.Style = []
          ParentFont = False
        end
        object Label13: TLabel
          Left = 16
          Top = 30
          Width = 52
          Height = 11
          Caption = 'presupuesto'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Small Fonts'
          Font.Style = []
          ParentFont = False
        end
      end
      object DBEdit16: TDBEdit
        Left = 240
        Top = 5
        Width = 425
        Height = 18
        Anchors = [akLeft, akTop, akRight]
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        CharCase = ecUpperCase
        DataField = 'DENOMINACION'
        DataSource = sPresup
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnEnter = edtFechaEnter
        OnExit = grdGastoPreExit
      end
      object edtFecha: TDBEdit
        Left = 728
        Top = 4
        Width = 65
        Height = 18
        Anchors = [akTop, akRight]
        AutoSize = False
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'FECHA'
        DataSource = sPresup
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnEnter = edtFechaEnter
        OnExit = grdGastoPreExit
      end
      object DBEdit13: TDBEdit
        Left = 728
        Top = 28
        Width = 65
        Height = 18
        Anchors = [akTop, akRight]
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'PLAZO_EJECUCION'
        DataSource = sPresup
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnEnter = edtFechaEnter
        OnExit = grdGastoPreExit
      end
      object prov: TPanel
        Left = 813
        Top = 4
        Width = 161
        Height = 41
        Anchors = [akTop, akRight]
        Caption = 'prov'
        Color = 9946572
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        object Label40: TLabel
          Left = 7
          Top = 4
          Width = 45
          Height = 11
          Caption = 'Proveedor'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -9
          Font.Name = 'Small Fonts'
          Font.Style = []
          ParentFont = False
        end
        object DBLookupComboBox2: TDBLookupComboBox
          Left = 8
          Top = 16
          Width = 145
          Height = 19
          Ctl3D = False
          DataField = 'razon'
          DataSource = sPresup
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 0
          OnEnter = edtFechaEnter
          OnExit = grdGastoPreExit
        end
      end
      object DBEdit17: TDBEdit
        Left = 239
        Top = 27
        Width = 426
        Height = 18
        Anchors = [akLeft, akTop, akRight]
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        CharCase = ecUpperCase
        DataField = 'DIRECCION'
        DataSource = sPresup
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        OnEnter = edtFechaEnter
        OnExit = grdGastoPreExit
      end
    end
    object Panel27: TPanel
      Left = 2
      Top = 655
      Width = 985
      Height = 36
      Align = alBottom
      BevelOuter = bvNone
      Color = clBtnHighlight
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      DesignSize = (
        985
        36)
      object Image4: TImage
        Left = 8
        Top = 8
        Width = 65
        Height = 25
        Picture.Data = {
          0A544A504547496D61676585100000FFD8FFE000104A46494600010101006000
          600000FFDB004300080606070605080707070909080A0C140D0C0B0B0C191213
          0F141D1A1F1E1D1A1C1C20242E2720222C231C1C2837292C30313434341F2739
          3D38323C2E333432FFDB0043010909090C0B0C180D0D1832211C213232323232
          3232323232323232323232323232323232323232323232323232323232323232
          32323232323232323232323232FFC0001108012C028603012200021101031101
          FFC4001F0000010501010101010100000000000000000102030405060708090A
          0BFFC400B5100002010303020403050504040000017D01020300041105122131
          410613516107227114328191A1082342B1C11552D1F02433627282090A161718
          191A25262728292A3435363738393A434445464748494A535455565758595A63
          6465666768696A737475767778797A838485868788898A92939495969798999A
          A2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6
          D7D8D9DAE1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9FAFFC4001F01000301
          01010101010101010000000000000102030405060708090A0BFFC400B5110002
          0102040403040705040400010277000102031104052131061241510761711322
          328108144291A1B1C109233352F0156272D10A162434E125F11718191A262728
          292A35363738393A434445464748494A535455565758595A636465666768696A
          737475767778797A82838485868788898A92939495969798999AA2A3A4A5A6A7
          A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE2E3
          E4E5E6E7E8E9EAF2F3F4F5F6F7F8F9FAFFDA000C03010002110311003F00F4EF
          15F8F22F0EDD9B2B7B37BCBB58FCC95533FBA0C76C631FC4CCC461723804E7A6
          77EC75051A723EA128B7B911F993C770D1AB47EE42B1007E27B724D797FC539F
          4883572F6AFF00F13396DCADDF9448DBB0AB42C7FDB0E154639C31CF4153DF78
          2FC4DE25697549CAD9CF7BA3C71CD19C2996618F91C1076A9C03C7422B0F6925
          26AD73D6583A2E8C272972DF76FE5D3EF3D466D4EC2DDE049EFADA27B8FF0052
          AF2AA997A7DDC9E7A8E9EB560C91895622EA246059509E4818C903DB23F315E4
          BAA7C3EF13EAAC93F9B650BD8D85B5AD92B12CD98C06660C3846DE3AF39071C5
          69EB5E1DF18EA9AD36BD6B241657F676F145651F9A195CB03E7EEEC396E3AE76
          8E9DAB9E5FCA73FD5A8BB7EF175BF976FEBA6A7A19BBB75B792E0DC44218F779
          92171B536FDEC9E831839F4C5469A958C91C72A5E5BB472BF9713ACAA43B671B
          41CF2720F1ED5E6C3C0DE23B2F0EEA7E18B292192C2F2F2271772CA77F945479
          C4A8E72595781D433722A07F87BAECBA6AE8D731D93D947ACC57AAF6F2794044
          C8C25545FE0209040E9927D28E797F28D61A86EEAADFF0EFFF0000F571344663
          08910CA064A6E1B80F5C53EB85F09F85B5CD23C5FA8EA1AADDC77B13DAA5B437
          59C4922A91B4B8FEF63827BE335DD56916DAD558E5AB08C2568CAE1451453320
          A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800
          A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800
          A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800
          A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800
          A28A2800A28A2800A28A2800A28A2802A1D2EC5AE4DCC96B1C93160C249177B2
          91D304E718ED8E956E8A281DDB0A28A281051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          4005145140051451400514514005145140051451400514514005145140051451
          40051451400514514005145140051451401FFFD9}
      end
      object Label14: TLabel
        Left = 933
        Top = 10
        Width = 30
        Height = 13
        Cursor = crHandPoint
        Anchors = [akRight, akBottom]
        Caption = 'Volver'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = Label14Click
      end
      object lblProveedor: TLabel
        Left = 781
        Top = 10
        Width = 49
        Height = 13
        Cursor = crHandPoint
        Hint = 'Abre formulario para agregar o modificar proveedores'
        Anchors = [akRight, akBottom]
        Caption = 'Proveedor'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        OnClick = lblProveedorClick
      end
      object lblLocalidad: TLabel
        Left = 701
        Top = 10
        Width = 46
        Height = 13
        Cursor = crHandPoint
        Hint = 
          'Abre formulario para agregar o modificar localidades y provincia' +
          's'
        Anchors = [akRight, akBottom]
        Caption = 'Localidad'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        OnClick = lblLocalidadClick
      end
      object lblTipologia: TLabel
        Left = 861
        Top = 10
        Width = 45
        Height = 13
        Cursor = crHandPoint
        Hint = 'Abre formulario para agregar o modificar tipolog'#237'as'
        Anchors = [akRight, akBottom]
        Caption = 'Tipolog'#237'a'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        OnClick = lblTipologiaClick
      end
      object Label18: TLabel
        Left = 581
        Top = 10
        Width = 92
        Height = 13
        Cursor = crHandPoint
        Hint = 'Copia los datos del presupuesto actual y los pega en uno nuevo'
        Anchors = [akRight, akBottom]
        Caption = 'Copiar Presupuesto'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        OnClick = Label18Click
      end
      object Label19: TLabel
        Left = 439
        Top = 10
        Width = 116
        Height = 13
        Cursor = crHandPoint
        Hint = 'Cancela todas las modificaciones no grabadas'
        Anchors = [akRight, akBottom]
        Caption = 'Cancelar Modificaciones'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        OnClick = Label19Click
      end
      object Shape1: TShape
        Left = 424
        Top = 6
        Width = 2
        Height = 18
        Anchors = [akRight, akBottom]
        Brush.Color = 10790052
        Pen.Color = 10790052
      end
      object Shape2: TShape
        Left = 568
        Top = 6
        Width = 2
        Height = 18
        Anchors = [akRight, akBottom]
        Brush.Color = 10790052
        Pen.Color = 10790052
      end
      object Shape3: TShape
        Left = 686
        Top = 6
        Width = 2
        Height = 18
        Anchors = [akRight, akBottom]
        Brush.Color = 10790052
        Pen.Color = 10790052
      end
      object Shape4: TShape
        Left = 763
        Top = 6
        Width = 2
        Height = 18
        Anchors = [akRight, akBottom]
        Brush.Color = 10790052
        Pen.Color = 10790052
      end
      object Shape5: TShape
        Left = 846
        Top = 6
        Width = 2
        Height = 18
        Anchors = [akRight, akBottom]
        Brush.Color = 10790052
        Pen.Color = 10790052
      end
      object Shape6: TShape
        Left = 974
        Top = 6
        Width = 2
        Height = 18
        Anchors = [akRight, akBottom]
        Brush.Color = 10790052
        Pen.Color = 10790052
      end
      object Shape7: TShape
        Left = 918
        Top = 6
        Width = 2
        Height = 18
        Anchors = [akRight, akBottom]
        Brush.Color = 10790052
        Pen.Color = 10790052
      end
      object Panel28: TPanel
        Left = 64
        Top = 28
        Width = 914
        Height = 3
        Anchors = [akLeft, akRight, akBottom]
        Color = 10790052
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
    end
  end
  object sItemPre: TDataSource
    DataSet = Datos.cItemPre
    OnStateChange = sPresupStateChange
    Left = 40
    Top = 248
  end
  object sPresup: TDataSource
    DataSet = Datos.cPresupuesto
    OnStateChange = sPresupStateChange
    OnDataChange = sPresupDataChange
    Left = 8
    Top = 248
  end
  object sGastoPre: TDataSource
    DataSet = Datos.cGastoPre
    OnStateChange = sPresupStateChange
    Left = 72
    Top = 248
  end
  object PopupMenu1: TPopupMenu
    Left = 104
    Top = 248
    object DetalleItem1: TMenuItem
      Caption = 'Detalle del Item...'
      OnClick = DetalleItem1Click
    end
    object HorasporCategora1: TMenuItem
      Caption = 'Horas por Categor'#237'a...'
      OnClick = HorasporCategora1Click
    end
  end
end
